home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / hamrad3.arc / SCONVERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  1.3 KB  |  33 lines
  1. 100 CLS :REM"SCONVERT"
  2. 110 PRINT TAB(31);"**** SCONVERT ****"
  3. 120 PRINT :PRINT "THIS PROGRAM CONVERTS S(11) DATA FROM MAGNITUDE / ANGLE";
  4. 130 PRINT " to R +- JX" :PRINT
  5. 140 PRINT :BEEP :INPUT "ENTER S(11) MAGNITUDE & PHASE  THUS: M,P  ";M,A
  6. 150 RAD=(4*ATN(1))/180 :R=10^(M/20)
  7. 160 ZN=(1-R^2)/(1+R^2-2*R*COS(A*RAD))
  8. 170 Z=ABS(ZN)*50 :Z=INT(Z*100)/100
  9. 180 XN=2*R*SIN(A*RAD)/(1+R^2-2*R*COS(A*RAD))
  10. 190 X=ABS(XN)*50 :X=INT(X*100)/100
  11. 200 I=Z*(1+(X/Z)^2) :I=INT(I*100)/100
  12. 210 IF XN<>0 THEN 230
  13. 220 J=99999! :GOTO 240
  14. 230 J=(Z^2+X^2)/X :J=INT(J*100)/100
  15. 240 IF SGN(XN)=-1 THEN 260
  16. 250 S$="+" :GOTO 270
  17. 260 S$="-"
  18. 270 CLS :PRINT TAB(28);"CONJUGATE IMPEDANCE DATA" :PRINT :PRINT
  19. 280 PRINT "S(11)=";M;"DB <";A;"Degrees converts to:" :PRINT
  20. 290 PRINT "AN EQUIVALENT SERIES IMPEDANCE of   ";Z;S$;"J";X;"  or": PRINT
  21. 300 PRINT "AN EQUIVALENT PARALLEL IMPEDANCE of ";I;S$;"J";J
  22. 310 PRINT :BEEP :PRINT "HARD COPY REQUIRED? (Y/N)"
  23. 320 P$=INKEY$ :IF P$="" THEN 320
  24. 330 IF P$="N" THEN 380
  25. 340 IF P$<>"Y" THEN 320
  26. 350 LPRINT "S(11)=";M;"DB";CHR$(60);A;"DEG. converts to a SERIES IMPED. of";
  27. 360 LPRINT Z;S$;"J";X :LPRINT "or an EQUIVALENT PARALLEL IMPEDEDANCE of";I;S$;
  28. 370 LPRINT "J";J :LPRINT
  29. 380 PRINT :BEEP :PRINT "CONTINUE? (Y/N)"
  30. 390 A$=INKEY$ :IF A$="" THEN 390
  31. 400 IF A$="Y" THEN 100
  32. 410 IF A$<>"N" THEN 390 ELSE END
  33.